home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / hash.zip / LIST.1 < prev    next >
Text File  |  1993-01-04  |  614b  |  14 lines
  1. 50 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  2. 55 '                                                    ~
  3. 60 'Subroutine to hash a four character string          ~
  4. 65 '                                                    ~
  5. 70 'Enter with the string to be hashed in NA$           ~
  6. 75 '                                                    ~
  7. 80 'On exit the hash value is in H                      ~
  8. 85 '                                                    ~
  9. 90 '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  10. 95 '
  11. 100 H = ( CVI(MID$(NA$,1,2)) XOR CVI(MID$(NA$,3,2)) ) MOD 61
  12. 110 RETURN
  13.  
  14.